home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SWAG / SWAGA_C / COMM.SWG / 0079_Simple Ring Detect.pas < prev    next >
Pascal/Delphi Source File  |  1995-05-26  |  565b  |  23 lines
  1. {
  2. > how do I detect a 'RING' signal from the modem at COMx?  (I want to
  3. > write a tsr that makes the monitor flash red (like fading color 0 from
  4. > black to red and back - that would be no problem, but the TSR and the
  5. > modem part sure is)
  6.  
  7. Sure, here's how you can do it without monitoring the actual output
  8. of the modem, and would definetaly be the best way to do it with a TSR.
  9. }
  10.  
  11. Const
  12.   MSR = $06;
  13.  
  14. Function Ringing(cb: word): boolean;
  15. begin
  16.   ringing := port[cb+MSR] and $40 = $40;
  17. end;
  18.  
  19. begin
  20.   cb := $3F8;
  21.   writeln(ringing(cb));
  22. end.
  23.